home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / lzw4p12.zip / MEMORY.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-15  |  481b  |  26 lines

  1. Unit Memory;
  2.  
  3. interface
  4.  
  5. function AllocMemory(Size : Word) : Pointer;
  6. function FreeMemory(P : Pointer; Size : Word) : Integer;
  7.  
  8. implementation
  9.  
  10. function AllocMemory(Size : Word) : Pointer;
  11. var
  12.   P     : Pointer;
  13. begin
  14.  GetMem(P, Size);
  15.  (*writeln('Allocating ',Size,' bytes');*)
  16.  AllocMemory := P;
  17. end;
  18.  
  19. function FreeMemory(P : Pointer; Size : Word) : Integer;
  20. begin
  21.  FreeMem(P, Size);
  22.  (*writeln('Freeing ',Size,' bytes');*)
  23.  FreeMemory := 0;
  24. end;
  25.  
  26. end.